SetVaryingModeInteger Subroutine

private subroutine SetVaryingModeInteger(varMod, layer)

Uses

set the varying mode of a integer grid

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: varMod
type(grid_integer), intent(inout) :: layer

Variables

Type Visibility Attributes Name Initial
character(len=20), public :: string

Source Code

SUBROUTINE SetVaryingModeInteger &
!
(varMod, layer)

USE StringManipulation, ONLY: &
!Imported routines:
StringToLower, StringCompact

IMPLICIT NONE

!Arguments with intent(in):
CHARACTER (LEN = *), INTENT(IN) :: varMod

!Arguments with intent(out):
TYPE(grid_integer), INTENT(INOUT) :: layer

!Local variables
CHARACTER (LEN = 20) :: string

!------------end of declaration------------------------------------------------

string = StringCompact (StringToLower  (varMod) )
IF ( String == 'sequence' .OR. String == 'linear' ) THEN  
  layer % varying_mode = string
ELSE
  CALL Catch ('error', 'GridLib', 'unsupported varying mode: ', &
                code = unknownOption, argument = string )
END IF

END SUBROUTINE SetVaryingModeInteger